home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
fb386
/
demo
/
kushida
/
85.bas
< prev
next >
Wrap
BASIC Source File
|
1995-02-03
|
11KB
|
197 lines
10 PLAY OFF
20 LOAD@ "ED02.FMB" : LOAD@ "ED06.PMB"
30 CLS 1 : COLOR 5 : PRINT "BIZARRE LOVE COLORS"
40 PRINT "written TAKAO KUSHIDA"
50 S$="%CQ8T150" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
60 '
70 '
80 AL$="@32V6O4L16U100Q4" : AR$=AL$+"@39U-50"
90 DL$="@15V6O4L16U100Q8" : DR$=DL$+"U-50"
100 A0L$=AL$+"RRRR Q8D4<B8&B>C8&CD8 Q4FCDRF8&FD8DD8F8G8"
110 A0R$=AR$+"RRRR<Q8A4 F8&F G8&GA8> Q4FCDRF8&FD8DD8F8G8"
120 A0E$=AL$+"V4 RRRR Q8D4<B8&B>C8&CD8 Q4ERRRRRFRRRRRGRRR"
130 A0F$=AR$+"V4 RRRR<Q8A4 F8&F G8&GA8> Q4ERRRRRFRRRRRGRRR"
140 A0G$=AL$+"Q8 R1R2R4 C8RR"
150 A0H$=AR$+"Q8 R1R2R4<G8RR"
160 A1L$=AL$+"CDRCF8D8&D<Q2GG8ARB8Q4> CDRCF8D8RDD8 AGC8"
170 A1R$=AR$+"CDRCF8D8&D<Q2GG8ARB8Q4> CDRCF8D8RDD8 AGC8"
180 A1E$=AL$+"<B32>C32DRCF8D8&D<BB8>C8BE CDRCF8DC#8C<B8A#8A8"
190 A1F$=AR$+"<B32>C32DRCF8D8&D<BB8>C8BE CDRCF8DC#8C<B8A#8A8"
200 A1G$=AL$+"CDDRCDDDRDDRF8G8 L64CC#DD# L16 E8Q8F8F#G8RGGRGRGR"
210 A1H$=AR$+"CDDRCDDDRDDRF8G8 L64CC#DD# L16 E8Q8F8F#G8RGGRGRGR"
220 A1I$=AL$+"CDRCF8D8&D<Q3GG8ARB8Q4> CRRRRRRR RRGRGRGR"
230 A1J$=AR$+"CDRCF8D8&D<Q3GG8ARB8Q4> CRRRRRRR RRERERER"
240 A1M$=AL$+"CDRCF8D8&D<Q2GG8ARB8Q4> C4&C8<B4&B8>C4"
250 A1N$=AR$+"CDRCF8D8&D<Q2GG8ARB8Q4> C4&C8<B4&B8>C4"
260 A2L$=AL$+"Q8 C4>C8<C8&CCCR>CR<C4CR>C8<F4E32FR32>F8<F8"
270 A2R$=AR$+"Q8 C4>C8<C8&CCCR>CR<C4CR>C8<F4E32FR32>F8<F8"
280 A2E$=AL$+"Q8 A4ARA#4A8G8F8 ]RRF4<<A#R>> RG<G>RG4"
290 A2F$=AR$+"Q8 A4ARA#4A8G8F8 ]RRD4<<A#R>> RE<E>RE4"
300 A2G$=AL$+"Q8 G#32A32&A8RARA#4A8G8F4 FRF4 <A#>A#<A#8>CRC#8"
310 A2H$=AR$+"Q8 G#32A32&A8RARA#4A8G8F4 FRF4 <A#>A#<A#8>CRC#8"
320 A3L$=AL$+"Q8 A#4ARA#4ARG8F8 &F2<F8>F8<A8>A8"
330 A3R$=AR$+"Q8 A#4ARA#4ARG8F8 &F2<F8>F8<A8>A8"
340 A3E$=AL$+"Q8 A#4ARA#4ARG8F8 &F2A4>FRFR"
350 A3F$=AR$+"Q8 A#4ARA#4ARG8F8 &F2A4>FRFR"
360 A3G$=AL$+"Q8 A#4ARA#4ARG8F8 &F2 "+DL$+" G4E4"
370 A3H$=AR$+"Q8 A#4ARA#4ARG8F8 &F2 "+DR$+" G4E4"
380 A4L$=DL$+" B4>C8&C<B8>CC8<B8>C<F B8F8>C8&C<B8>CC8<B>DF8"
390 A4R$=DR$+" B4>C8&C<B8 AA8 B8 A F B8F8>C8&C<B8 AA8 B>DF8"
400 A4E$=DL$+">E8FD8EC8D<B8>C<A8B8 DRD8>CC8CRCC8C8D8<"
410 A4F$=DR$+">E8FD8EC8D<B8>C<A8B8 DRD8 AA8ARAA8A8B8 "
420 A4G$=DL$+">E8DERA8ERED8C8DD# E8DERA8ERED8>CR<<A8"
430 A4H$=DR$+">E8DERA8ERED8C8DD# E8DERA8ERED8>CR<<A8"
440 A4I$=DL$+" B8&B>C RRRRRCCRF<A8<A B8>B8C8>C8<D>D<D8>F8G8"
450 A4J$=DR$+" B8&B>C RRRRRCCRF<A8<A B8>B8C8>C8<D>D<D8 F8G8"
460 A5L$=DL$+" E8FD8EC8D<B8>C<A8B8L64FGABL16>C8<BRRB32>C32&C8&C<B8>C8D8"
470 A5R$=DR$+" E8FD8EC8D<B8>C<A8B8L64FGABL16 A8 GRRG32 A32&A8&A G8 A8B8"
480 A5E$=DL$+" DRD8>CR<DBRDABD8BR ARG#8GFR>DR<DFGG#RA8"
490 A5F$=DR$+" DRD8 AR DGRDFRD8GR <ARG#8GFR>DR<DFGG#RA8"
500 A5G$=DL$+" AARDRCD8RDD8F8GG# AARDRCD8RDD8BAG8"
510 A5H$=DR$+" AARDRCD8RDD8F8GG# AARDRCD8RDD8BAG8"
520 A5I$=DL$+" A8>D8<A>C8<AB8>C<B8>EC8 CDD8CDRAD8G#D8GD8"
530 A5J$=DR$+" A8>D8<A>C8<AB8>C<B8>EC8 CDD8CDRFD8F D8ED8"
540 A6L$=DL$+" RRERF4EFRF8GE8 <B>CRCD8DEREF8>CRC8"
550 A6R$=DR$+" RRERD4EFRF8GC8 <B>CRCD8DEREF8 ARA8"
560 A6E$=DL$+" >D<G#G8F8G8E8FD8EC8 <B8F>C8<G>C#8 DR>D<DRCDE"
570 A6F$=DR$+" >D<G#G8F8G8E8FD8EC8 <B8F>C8<G>C#8 DR>D<DRCDE"
580 A6G$=DL$+"FEF4ERR>C<C8>C4<@56Q1RCC8<@59]]%L9C4%CQ8[[>@15U100R8B8A8G8"
590 A6H$=DR$+"FEF4ERR>C<C8>C4<@56Q1RCC8<@59]]%R9C4%CQ8[[>@15U-50R8B8A8G8"
600 A6I$=DL$+" G#32AR32D8>D8&DCRC<B8A8B8 >C8<A>D8<B>CRRCC8CRC#8"
610 A6J$=DR$+" G#32AR32D8>D8&DCRC<B8A8B8 >C8<A>D8<B>CRRCC8CRC#8"
620 A7L$=DL$+" E4&E8F2 CDE8D8C8<B4&B8G4"
630 A7R$=DR$+" C4 C8C2 CDC8D8C8<B4&B8G4"
640 A7E$=DL$+" E4&E8F2 CDE8F8E8D4C8<B4" : A7G$=DL$+" E1"
650 A7F$=DR$+" E4 C8C2 CDC8F8E8D4C8<B4" : A7H$=DR$+" C1"
660 '
670 C0L$="@45V6O3L16%R2Q3U100 RRDRRRRDRRDRADRR RRDRRRRDRRDRDR@50Q8>D8"
680 C0R$="@45V3O3L16%L2Q3U-50R8 RRDRRRRDRRDRADRR RRDRRRRDRRDRDR@50Q8 "
690 C1L$="@45V6O3L16Q3U150 GAAARA8ARAARARAR GAAARA8ARAARARAR Q8"
700 C1R$="@45V3O3L16Q3U-90E GAAARA8ARAARARAR GAAARA8ARAARARA Q8"
710 C1E$="@45V6O3L16U150Q3 GAAARA8ARAARARAR A#A#RA#>F8<A#>CRCG8C8G8 Q8"
720 C1F$="@45V3O3L16U-90Q3E GAAARA8ARAARARAR A#A#RA#>F8<A#>CRCG8C8G Q8"
730 C2L$="@45V6O4L16U100Q6 FRRRRRFRRR>ARGRAR <GRRARRA#RRR>>CR<GRER Q8"
740 C2R$="@45V3O4L16U-50Q6C FRRRRRFRRR>ARGRAR <GRRARRA#RRR>>CR<GRE Q8"
750 C2E$="@45V6O4L16U100Q6 FGRGRRGRRRA#RA#R>CR CR<A#RARA#4ARGRER Q8"
760 C2F$="@45V3O4L16U-50Q6C FGRGRRGRRRA#RA#R>CR CR<A#RARA#4ARGRE Q8"
770 C3L$="@45V6O5L16U100Q5 E8&EF R2<<A>AC>C E8&EF R4&R8GRA8 C8"
780 C3R$="@45V6O5L16U-50Q5 C8&CD R2<<A>AC>C C8&CD R4&R8CRE8<G8"
790 C3E$="@45V6O5L16U100Q5 E8&EF R2<<A>AC>C E8&EF R4<<G>G<G8A8>A8"
800 C3F$="@45V6O5L16U-50Q5 C8&CD R2<<A>AC>C C8&CD R4<<G>G<G8A8>A8"
810 C4L$="@45V8O3L16U100Q5%L9BRFR>CR<GRB>CRCRD<B8 RBRRBRR>C<B>CRCR F<B8"
820 C4R$="@45V8O3L16U-50Q5%R9GRDR AR ERG ARARB G8 RGRRGRR A G ARAR>D<G8"
830 C4E$="@58V6O3L16U100Q1%R9 (B[BR)4BRBR V6 >(C[CR)4CRCR Q8"
840 C4F$="@58V6O3L16U-50Q1%L9 (B[BR)4BRBR V6 >(C[CR)4CRCR Q8"
850 C5L$="@45V6O3L16U100%R9 G1&G2&G8F4G8"
860 C5R$="@45V6O3L16U-20%L9 G1&G2&G8F4G8"
870 C5E$="@45V6O3L16U100%R9 E4&E8 F8&F1C4D4"
880 C5F$="@45V6O3L16U-20%L9 E4&E8 F8&F1C4D4"
890 C5G$="@45V6O3L16U100%R9 E4&E8F8&F1&F1"
900 C5H$="@45V6O3L16U-20%L9 E4&E8F8&F1&F1"
910 E0L$="@6V5O4L16Q1 RRDR@3D@59R4D@6<A8>RDRR DR@59DRR4R@6ARR@59ARRDQ8"
920 E0R$="@6V2O4L16Q1R RRDR@3D@59R4D@6<A8>RD4 DR@59DRR4R@6ARR@59AR Q8"
930 E0E$="@6V5O4L16Q1 CRDR@3D@59R4D@6<A8>RDRR DR@59DRR4G@6A@59FRCRRDQ8"
940 E0F$="@6V2O4L16Q1R5 CRDR@3D@59R4D@6<A8>RDRR DR@59DRR4G@6A@59FRC90 Q8"
950 E1$ ="@60V6O4L16 <C8>CR<G>C8DFC8CRCC8 <C>CC>G<GC8D>F<C8CRCC8 "
960 B0$ ="@77V9O1L16 D4&D8DR<A4>C8<A8 >C8DRD4<A4>C8<A8"
970 B0E$="@77V9O1L16 R2R4 RRR<B> CRRRC4 @29 ARA8>CRC8"
980 B1$ ="@27V9O3L16 DRRRD8&D<ARAB8>C8ED# D8CRD8&D<ARAB8>C8E8"
990 B1E$="@27V9O3L16 DRRRD8&D<ARAB8>C8ED# C4<CR>C4<CR>C8<CG"
1000 B2$ ="@27V9O3L16 F8&FFFRRRR>C<F8E8F8 R8A#4A#4ARA#R>C8"
1010 B2E$="@27V9O3L16 <G4>G8<G8&GFGR>A#8<GA A#8&A#A#A#RA#RRRA#8>G8C8<"
1020 B2F$="@27V9O3L16 <G4>G8<G8&GFGR>A#8<GA A#2 A#8>A#8C8>C8 "
1030 B3$ ="@27V9O3L16 RRD8CDRDRRRR<B8>C8 <D8>D8CDRD <<RRA8>A8<A8"
1040 B3E$="@27V9O3L16 RRD8CDRDR<GA8B8>C8 <D8>D8CDRD<<G8>G8<A8>A8"
1050 B4$ ="@27V9O3L16 <A#4A#R>C4<C8>C4&C8< FRF4G4A4"
1060 B4E$="@27V9O3L16 <A#4A#R>C4<C8>C4< R2<G8A8>C8C#8"
1070 B5$ ="@27V9O3L16 (<D8>D8)<F8>F8<G8>GC (<D8>D8)<F8>F8<G8>G8<"
1080 B5E$="@27V9O3L16 (<D8>D8)<F8>F8<G8>GF# (<F8>F8)<G8>G8<A8>A8"
1090 B5F$="@27V9O3L16 DRRRD8&D<A>CDRDRC<A8> G8D8G8DGRGC8C#8B8"
1100 B5G$="@27V9O3L16 DRRRD8&D<A>CDRDRC<A8 F8DG8DA#4A#B>CR<A8"
1110 B6$ ="@27V7O3L16 D4DR<A4ARARAB> C8<B8A8G4GRG>G<G8"
1120 B6E$="@96V5O2L16 D4&D8<A2&A8> C4&C8<G4&G8A4>"
1130 B6F$="@96V5O2L16 D1"
1140 B9$ ="@27V9O3L16 C8D<DA>A<A>C&C8DRARA<G G#8AR>GRGE8<GG8G#8A8"
1150 '
1160 P1$= "@6 V10O0L16 G4RRG4R@9>C<@6RRRG GRR@9>C<@6RRGRRGR@9>C<@6RRGR"
1170 S1$= "@6 V10O0L16 G4RRG4R@9>C<@6RRRG GRRRRRRRRRGRGRGR"
1180 P2$= "@6 V12O3L16 RRRRCRRRRRCRRCRR RRRRCRRRRRCRRCRC"
1190 S2$= "@6 V12O3L16 RRRRCRRRRRCRRCRR RRRRRRRRRRRRRRRR"
1200 P3$= "@9 V5 O6L16 FRFRRRFRFRRRFRFC32F32 FCFRRRFRFRRRFRFR"
1210 P4$= "@6 V7 O7L16 RRGRCRRRGRRGRGRG RRGRCRRRGRRCRGRG"
1220 P5$= "@12V9 O7L16 CRRRRRCRRRRRCRCR CRRRRRCRRRRRCRRR"
1230 PP1$="@3 V3 O2L16%R8 CRCREDCR>CC<RCRDC<C> CGRCFE32D32CR>CC<RCR<D>CR"
1240 PP2$="@3 V4 O7L16%L8 CRRCRRCRRCRRCRCR CRRCRGCRRCR<G>C<C>CR"
1250 PP3$="@7 V7 O6L16%CQ8 G2RRRRRRQ1GR Q8GRRRGRRR RRQ1GRQ8GRGR"
1260 PQ3$="@7 V7 O6L16%CQ8 G2RRRRRRQ1GR<G>RRRQ8GRRG <G>CQ1GRQ8GRGR"
1270 BP1$="@9 V9 O2L16 R1%R5G%L5GR%CG @8>G8<@9GGR @8>G<@9GR@8>G8V1GG"
1280 BP2$="@2 V0 O7L16 (RRFRRRFR])RRFF]FF]FF]FF]F]F]%R9F%L9F%C@11O1G"
1290 BP3$="@8 V7 O3L16 R1R2R8 GR %R1G %L1GR%CG"
1300 '
1310 'PLAY B0E$,A0G$,A0H$,C0L$,C0R$, , , ,QP3$,BP2$ :END
1320 'PLAY B6$,C5L$,C5R$,,,E1$ ,P1$,P2$,P3$,P4$,P5$ : END
1330 'PLAY B5F$,C4E$,C4F$,,,,S1$,S2$,P3$,P4$,PQ3$,BP3$ : END
1340 'PLAY ,,,,,,PQ3$ : END
1350 'GOTO 1850
1360 '
1370 '
1380 PLAY B0$ ,,,,,,PP3$
1390 PLAY B0$ ,,,,,,PQ3$
1400 PLAY B0$ ,,,,,,P3$,PP3$
1410 PLAY B0$ ,,,,,,P3$,P4$,PQ3$
1420 PLAY B0$ ,E0L$,E0R$,,,,P3$,P4$,PP3$
1430 PLAY B0$ ,E0E$,E0F$,,,,P3$,P4$,QP3$
1440 PLAY B0$ ,E0L$,E0R$,C0L$,C0R$,,P3$,P4$,PP3$
1450 PLAY B0$ ,E0E$,E0F$,C0L$,C0R$,,P3$,P4$,QP3$
1460 PLAY ,E0L$,E0R$,C0L$,C0R$,,P3$,P4$,PP3$
1470 PLAY , ,E0R$, ,C0R$,,P3$,P4$,QP3$
1480 PLAY , , , , ,,P3$,P4$,PP3$
1490 PLAY , , , , ,,PQ3$
1500 PLAY B0$ ,E0L$,E0R$,C0L$,C0R$, ,P3$,P4$,PP3$
1510 PLAY B0$ , ,E0R$,C1L$,C1R$, ,P3$,P4$,QP3$
1520 PLAY B0$ ,A0E$,A0F$,C1L$,C1R$,E1$,P3$,P4$,PP3$
1530 PLAY B0E$,A0G$,A0H$,C0L$,C0R$, , , ,QP3$,BP2$
1540 '
1550 PLAY B1$ ,C1L$,C1R$,A0L$,A0R$,E1$ ,S1$,S2$,P3$
1560 PLAY B1$ ,C1L$,C1R$,A1E$,A1F$,E1$ ,P1$,P2$,P3$,P4$
1570 PLAY B1$ ,C1L$,C1R$,A0L$,A0R$,E1$ ,P1$,P2$,P3$,P4$,P5$
1580 PLAY B1E$,C1E$,C1F$,A1G$,A1H$,E1$ ,S1$,S2$
1590 PLAY B2$ ,C2L$,C2R$,A2L$,A2R$,E1$ ,P1$,P2$,P3$,P4$,P5$
1600 PLAY B2E$,C2L$,C2R$,A2E$,A2F$,E1$ ,P1$,P2$,P3$,P4$,P5$
1610 PLAY B2$ ,C2L$,C2R$,A2L$,A2R$,E1$ ,P1$,P2$,P3$,P4$,P5$
1620 PLAY B2F$,C2E$,C2F$,A2G$,A2H$,E1$ ,S1$,S2$,P3$,P4$,P5$
1630 PLAY B3$ ,C3L$,C3R$, , ,E1$ ,P3$,P4$,PP1$
1640 PLAY B3E$,C3E$,C3F$, , ,E1$ ,P3$,P4$,PP1$,PP2$
1650 PLAY B3$ ,C3L$,C3R$, , ,E1$ ,P3$,P4$,PP1$,PP2$
1660 PLAY B1E$,C3E$,C3F$, , ,E1$ ,P3$,P4$,PP1$,PP2$
1670 PLAY B3$ ,C3L$,C3R$,A1L$,A1R$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
1680 PLAY B3E$,C3E$,C3F$,A1I$,A1J$,E1$ ,S1$,P2$,P3$,P4$,PP1$,PP2$
1690 PLAY B3$ ,C3L$,C3R$,A1E$,A1F$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
1700 PLAY B1E$,C3E$,C3F$,A1M$,A1N$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
1710 PLAY B4$ ,C2L$,C2R$,A3L$,A3R$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
1720 PLAY B4$ ,C2L$,C2R$,A3L$,A3R$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
1730 PLAY B4$ ,C2L$,C2R$,A3E$,A3F$,E1$ ,P1$,P2$,P3$,P4$,P5$,PP1$,PP2$
1740 PLAY B4E$,C2E$,C2F$,A3G$,A3H$,E1$ ,S1$,S2$
1750 PLAY B5$ ,C4L$,C4R$,A4L$,A4R$,E1$ ,P1$,P2$,P3$,P4$,P5$
1760 PLAY B5$ ,C4L$,C4R$,A4E$,A4F$,E1$ ,P1$,P2$,P3$,P4$,P5$
1770 PLAY B5E$,C4L$,C4R$,A4G$,A4H$,E1$ ,P1$,P2$,P3$,P4$,P5$
1780 PLAY B5$ ,C4L$,C4R$,A4I$,A4J$,E1$ ,P1$,P2$,P3$,P4$,P5$,BP1$
1790 PLAY B5F$,C4L$,C4R$,A5L$,A5R$,E1$ ,P1$,P2$,P3$,P4$,P5$
1800 PLAY B5F$,C4L$,C4R$,A5E$,A5F$,E1$ ,P1$,P2$,P3$,P4$,P5$
1810 PLAY B5F$,C4L$,C4R$,A5G$,A5H$,E1$ ,P1$,P2$,P3$,P4$,P5$
1820 PLAY B5F$,C4L$,C4R$,A5I$,A5J$,E1$ ,P1$,P2$,P3$,P4$,P5$
1830 PLAY B5F$,C4L$,C4R$,A6L$,A6R$,E1$ ,S1$,S2$,P3$,P4$,PP3$
1840 PLAY B5F$,C4L$,C4R$,A6E$,A6F$,E1$ ,S1$,S2$,P3$,P4$,PQ3$,BP3$
1850 PLAY B5F$,C4L$,C4R$,A6G$,A6H$,E1$ ,P1$,P2$,P3$,P4$,PP3$
1860 PLAY B5G$,C4L$,C4R$,A6I$,A6J$,E1$ ,S1$,S2$, , ,PQ3$,BP1$,BP2$
1870 PLAY B6$ ,C5L$,C5R$,A7L$,A7R$,E1$, ,PP3$
1880 PLAY B6$ ,C5E$,C5F$,A7E$,A7F$,E1$, ,PQ3$
1890 PLAY B6$ ,C5L$,C5R$,A7L$,A7R$, , ,PP3$
1900 PLAY B6$ ,C5E$,C5F$,A7E$,A7F$, , ,PQ3$
1910 PLAY B6E$,C5L$,C5R$,A7G$,A7H$,,PP3$
1920 PLAY B6E$,C5E$,C5F$, , ,,PQ3$
1930 PLAY B6E$,C5L$,C5R$, , ,,PP3$
1940 PLAY B6E$,C5E$,C5F$, , ,,PQ3$
1950 PLAY B6F$,C5L$,C5R$,A0E$,A0F$,,PP3$
1960 PLAY ,C5G$,C5H$